home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / GetPrevErr_D.edt < prev    next >
Text File  |  1994-07-28  |  499b  |  27 lines
  1. /* .info: 16/06/93, 23:35:32, version 4 */
  2. OPTIONS RESULTS
  3. libname = "oberonsupport.library"
  4. IF ~show("L", libname) THEN DO
  5.   IF ~addlib(libname, 0, -30, 1) THEN DO
  6.     'title' "Fehler: konnete" libname "nicht öffnen."
  7.     exit
  8.   END
  9. END
  10.  
  11. i=GetClip("O2Err")
  12. IF i="" THEN DO
  13.   'title' "Kann aktuellen Fehler nicht anspringen."
  14.   exit
  15. END
  16. i=i-1
  17.  
  18. IF i<0 THEN DO
  19.   'title' "Keine weiteren Fehler."
  20.   exit
  21. END
  22.  
  23. errNum=GetClip("O2#"||i)
  24. 'GotoBookmark' i+30
  25. 'title' GetErrorText(errNum)
  26.  
  27. SetClip("O2Err",i)